function [probeData] = sumMgNumNormNoPT(probeData)


% 1-SiO2	2 -TiO2	  3- Al2O3  4-Cr2O3	  5-FeO	   6-MgO	  7-CaO 8-K2O 9-Na2O 
%10-total %11-Mg# 12-NaK# 

    %normalizes by each row
    for n=1:size(probeData,1)
        probeData(n,:) = 100*probeData(n,:)./nansum(probeData(n,:));
    end
    probeData(:,10) = sum(probeData,2);
       
    %calculates the Mg#
    probeData(:,11) = (probeData(:,6)./40.311)./((probeData(:,6)./40.311) + (probeData(:,5)./71.846));
    %NaK#
    probeData(:,12) =  nansum(probeData(:,8:9),2)./nansum(probeData(:,7:9),2);
end





